Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/background_14812.txt

Text File | 1990-04-17 | 8KB | 390 lines

-- background: 14812 from stack: in
-- bmap block id: 14999
-- flags: 0000
-- background id: 0
-- name: General Text
----- HyperTalk script -----
on extractMac
  global sol,env,holder
  --environments,envnum,solutions,solnum,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 1 of line i of it <> empty then
      put line i of it & return after holder
    end if
  end repeat
end extractMac

on extractHost
  global sol,env,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 2 of line i of it <> empty then
      put line i of it & return after holder
    end if
  end repeat
end extractHost

on parse
  global holder,NH
  put empty into NH
  repeat with i = 1 to the number of lines of holder
    put item 3 of line i of holder into dotnames
    repeat
      put offset("•",dotnames) into num
      if num is empty or num is 0 then exit repeat
      put char 1 to (num - 1) of dotnames & return after NH
      delete char 1 to num of dotnames
    end repeat
  end repeat
end parse

on closeCard
  pass closeCard
end closeCard


-- part 9 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=307 right=339 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell
----- HyperTalk script -----
on mouseLeave
  put empty into fld "Tell"
end mouseLeave

on mouseEnter
  put "Message Field" & return & "displays help information" into fld "Tell"
end mouseEnter




-- part 13 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=469 top=303 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoBack
----- HyperTalk script -----
on mouseUp
  get short name of this card
  if it is "Outliner" then clearF
  set lockscreen to true
  set cursor to busy
  go back
  unlock screen with visual effect wipe right
end mouseUp

on mouseEnter
  put "Go Back Button" & return & "click to go to prev card" into fld "Tell"
  changeCurs 6069
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 20 (field)
-- low flags: 80
-- high flags: 2001
-- rect: left=68 top=41 right=223 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Explainer


-- part 23 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=0 top=303 right=342 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXIT
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Exit Button" & return & "click to quit or go home" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  answer "Would you like to Quit, go Home, or Cancel" with "Quit" or "Home" or "Cancel"
  unlock screen with dissolve
  set lockscreen to true
  if it is "Quit" then doMenu "Quit HyperCard"
  if it is "Home" then
    domenu Home
  end if
  unlock screen with dissolve
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 24 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=126 top=303 right=342 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printer
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  print card
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Printer Button" & return & "click to print this image" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 25 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=343 top=303 right=342 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1409 / 1409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outliner
----- HyperTalk script -----
on mouseUp
  global Mack,Host
  push card
  set cursor to busy
  set the lockscreen to true
  put true into Mack
  put false into Host
  go to cd "Outliner"
  send mouseUp to cd btn "macSwitch"
  unlock screen with dissolve
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Outliner Button" & return & "use outline navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 26 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  push card
  visual effect dissolve
  go to cd "Matrix"
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Matrix Button" & return & "use matrix navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 27 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  set lockscreen to true
  unlock screen with dissolve
  go to cd "Lobby"
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Lobby Button" & return & "use building navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 28 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=42 top=303 right=342 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 21375 / 21375
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Orientation briefing
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Orientation Briefing Button" & return & "click to go to briefing room" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  set cursor to busy
  push card
  go to cd "Briefing Room"
  unlock screen with dissolve
  pass mouseUp
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 29 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=84 top=303 right=342 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 20358 / 20358
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Glossary
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  get short name of this card
  if it is "Outliner" then clearF
  push card
  visual effect iris open
  go cd "glossary"
end mouseUp

on mouseEnter
  put "Glossary Button" & return & "click to go to the Glossary" into fld "Tell"
  changeCurs 6069
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave